home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / teglp.zip / SAMPROGS.ZIP / CTEST01.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-02  |  682b  |  40 lines
  1.  
  2. USES
  3.     crt,
  4.     graph,
  5.     TEGLIntr,
  6.     FastGrph;
  7.  
  8. const
  9.   TEGLBackPattern    : FillPatternType = ($AA,$55,$AA,$55,$AA,$55,$AA,$55);
  10.  
  11. var
  12.   ch : char;
  13.  
  14. procedure ClearTEGLScreen;
  15.    begin
  16.       setbkcolor(black);
  17.       SetFillPattern(TEGLBackPattern,1);
  18.       Bar(0,0,getmaxx,getmaxy);
  19.       SetColor(1);
  20.       Rectangle(0,0,getmaxx,getmaxy);
  21.    end;
  22.  
  23. procedure waitforkey;
  24.    begin
  25.       while keypressed do ch:=readkey;
  26.       while not keypressed do;
  27.       while keypressed do ch:=readkey;
  28.    end;
  29.  
  30. begin
  31.    CGA640x200x2;
  32.    Init_TEGLIntr;
  33.    setmouseminmax(0,0,getmaxx,getmaxy);
  34.  
  35.    clearteglscreen;
  36.  
  37.    showmouse;
  38.    waitforkey;
  39. end.
  40.